home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / d.dxr / 00013_TIMUR CODE.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  1.3 KB  |  35 lines
  1. global HARP, TIGO, HORN, DRUM, CHIME, BASS, sPALETTE, gObjects, gOBJECTSD, gWorld, gPuppetlines, sQTCharSprite, gNextEnvLetter, gMIDIPlayTRUE, gInitalized, noteObjs, windowsMIDIXObj, xNAVXOBJ, xCURXOBJ, gCPU, gFileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gCDpath, gCDName
  2.  
  3. on DoTimurCheck NUM
  4.   set OBj to getaProp(gObjects, #timur)
  5.   setAt(getaProp(OBj, #TimurCheck), NUM, 1)
  6.   if getOne(getaProp(OBj, #TimurCheck), 0) = 0 then
  7.     makeTimurChaotic()
  8.   end if
  9. end
  10.  
  11. on makeTimurChaotic
  12.   ChangeSpecialState(#timur, #Chaotic)
  13.   eraseRecording(#timur)
  14.   repeat with X = 1 to 5
  15.     set the loc of sprite getaProp(getaProp(gObjects, #TIMURChaoticArea), #SpriteNum) to point(-2000, -2000)
  16.     CursorandUpdate()
  17.     set the loc of sprite getaProp(getaProp(gObjects, #TIMURChaoticArea), #SpriteNum) to getaProp(getaProp(gObjects, #TIMURChaoticArea), #loc)
  18.   end repeat
  19.   set the loc of sprite getaProp(getaProp(gObjects, #TIMURChaoticArea), #SpriteNum) to point(-2000, -2000)
  20.   updateStage()
  21. end
  22.  
  23. on PlayChaoticTimur
  24.   set OBj to getaProp(gObjects, #TIMURChaoticArea)
  25.   set the loc of sprite getaProp(OBj, #SpriteNum) to getaProp(OBj, #loc)
  26.   PlayNoteFromHitMap(#timur)
  27.   set the loc of sprite getaProp(OBj, #SpriteNum) to point(-2000, -2000)
  28.   updateStage()
  29. end
  30.  
  31. on playTimur RefNum
  32.   set OBj to getaProp(gObjects, RefNum)
  33.   PlaytheNote(#timur)
  34. end
  35.